home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #016 (19xx)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #016 (19xx)(Amiga User Group Deutschland e.V.).adf / AVSBDP / AVSBDP (.txt) < prev    next >
AmigaBASIC Source Code  |  1987-05-04  |  13KB  |  615 lines
  1.  
  2.  
  3.  
  4.  CLEAR ,35000
  5.  A$="B.S.B " : x=1 : S=2000 : sp$=SPACE$(40) : ss=1 
  6.  SCREEN 2,640,215,4,2
  7.  WINDOW 2,"      (c) by BSB       ",,0,2
  8.  Schriftname$="topaz.font"+CHR$(0)
  9.  GOSUB stil
  10.  DIM gef(200),aa(20),bb(20),cc(20),dd(20),ee(20),ff(20),gg(20),hh(20),ii(20),jj(20),kk(20),ll(20),mm(20),NN(20),oo(20),pp(20),qq(20),rr(20),ss(20),tt(20),uu(20),vv(20),ww(20),xxx(20),yyy(20),zzz(20)
  11.  MENU 5,0,0,"Druck"
  12.  MENU 5,1,1,"Schreibm."
  13.  MENU 5,2,1,"Briefkopf"
  14.  PALETTE 0,0.1,0.3,0.3
  15.  PALETTE 2,0,0,0
  16.  COLOR 2,0
  17.  LOCATE 2,2 : PRINT A$ ; 
  18.  LOCATE 2,71 : PRINT A$ ;
  19.  LOCATE 24,2 : PRINT A$ ;
  20.  LOCATE 24,71 : PRINT A$ ;
  21.  COLOR 1,0
  22.  r=-1
  23.  COLOR 9,0
  24.  LOCATE 7,36 : PRINT "A V S B D P"
  25.  COLOR 10,0
  26.  LOCATE 13,35 : PRINT "copyright by";
  27.  COLOR 2,0
  28.  LOCATE 16,30 : PRINT "Baby-Soft Bielefeld" ;
  29.  FOR z=1 TO 50
  30.  SCROLL (1,120)-(600,130),1,0 
  31.  NEXT z
  32.  BEEP
  33. mausabf:
  34.  IF x<100 THEN SCROLL (1,120)-(600,130),r,0
  35.  IF x=100 THEN r=1 : BEEP
  36.  IF x=200 THEN r=-1 : x=0 : BEEP
  37.  IF x>100 THEN SCROLL (1,120)-(600,130),r,0
  38.  x=x+1
  39.  ON MOUSE GOSUB rollen
  40.  MOUSE ON
  41.  GOTO mausabf
  42. rollen: COLOR 1,10
  43.  FOR x=1 TO 105
  44.  SCROLL (0,0)-(640,100),0,-1
  45.  SCROLL (640,100)-(0,640),0,1
  46.  NEXT x
  47. bild:
  48.  MENU 5,0,1 
  49.  COLOR 2,10
  50.  LOCATE 4,7 : PRINT "Name    :";
  51.  LOCATE 6,7 : PRINT "Vorname :";
  52.  LOCATE 8,7 : PRINT "Strasse :";
  53.  LOCATE 10,7 : PRINT "Wohnort :";
  54.  LOCATE 12,7 : PRINT "Telefon :";
  55.  LOCATE 15,7 : PRINT "Info    :";
  56. bild1:
  57.  LINE (1,192)-(9,202),2,bf
  58.  LINE (1,191)-(7,199),9,bf
  59.  LINE (95,163)-(170,183),13,bf
  60.  LINE (265,163)-(365,183),12,bf
  61.  LINE (435,163)-(535,183),13,bf
  62.  LINE (90,160)-(165,180),2,bf
  63.  LINE (260,160)-(360,180),2,bf
  64.  LINE (430,160)-(530,180),2,bf
  65.  LINE (206,135)-(410,144),6,B
  66.  COLOR 1,2
  67.  LOCATE 18,27 : PRINT "Bitte Funktion anklicken "
  68.  LOCATE 22,14 : PRINT "Lesen ";
  69.  LOCATE 22,35 : PRINT "Schreiben";
  70.  LOCATE 22,58 : PRINT "Suchen";
  71.  COLOR 8,10
  72.  LOCATE 25,3 : PRINT "Notaus";
  73.  COLOR 1,2
  74. mausabf1:
  75.  ON MENU GOSUB menue
  76.  ON MOUSE GOSUB maus1 
  77.  MOUSE ON
  78.  MENU ON
  79.  GOTO mausabf1
  80. menue:
  81.  pull=MENU(0)
  82.  punkt=MENU(1)
  83.  IF pull=5 THEN 
  84.  IF punkt=1 THEN schreibmaschine
  85.  IF punkt=2 THEN briefkopf
  86.  END IF
  87.  RETURN 
  88. maus1:
  89.  test=MOUSE(0)
  90.  x=MOUSE(1) 
  91.  y=MOUSE(2) 
  92.  IF x>1 AND x<9 AND y>192 AND y<200 THEN aus
  93.  IF x>90 AND x<165 AND y>160 AND y<180 THEN lesen
  94.  IF x>265 AND x<360 AND y>160 AND y<180 THEN schreiben
  95.  IF x>430 AND x<530 AND y>160 AND y<180 THEN suchen
  96.  RETURN
  97. lesen:
  98.  MENU OFF
  99.  A=1
  100.  IF sl<>1 THEN GOSUB anzahlsatz
  101.  CLOSE 1
  102.  OPEN "r",#1,"adressdatei.rel",195  
  103.  FIELD #1,20 AS nname$,20 AS vorname$,30 AS strasse$,30 AS wohnort$,15 AS telefon$,80 AS info$
  104.  LOCATE 18,27 : PRINT "                        "
  105.  LINE (90,160)-(165,180),1,bf
  106.  COLOR 2,1
  107.  LOCATE 22,14 : PRINT "Lesen";
  108.  COLOR 1,2
  109.  GOSUB fenster1
  110. mausabf2:
  111.  ON MOUSE GOSUB maus2
  112.  MOUSE ON
  113.  GOTO mausabf2
  114. maus2:
  115.  COLOR 1,2
  116.  test=MOUSE(0)
  117.  x=MOUSE(1)
  118.  y=MOUSE(2)
  119.  IF x>25 AND x<40 AND y>10 AND y<15 THEN 
  120.  A=A-1
  121.  IF A=0 THEN A=1
  122.  COLOR 1,2
  123.  LOCATE 18,40 : PRINT A;: PRINT "       "
  124.  END IF
  125.  IF x>60 AND x<75 AND y>10 AND y<15 THEN 
  126.  A=A+1
  127.  IF A>satz THEN
  128.  A=satz+1
  129.  COLOR 1,2
  130.  LOCATE 18,27 :PRINT "Adressnummer zu hoch";
  131.  GOTO mausabf2
  132.  END IF
  133.  COLOR 1,2
  134.  LOCATE 18,40 : PRINT A; :PRINT "        "
  135.  END IF
  136.  IF x>42 AND x<57 AND y>15 AND y<25 THEN GOSUB aendern
  137.  IF x>25 AND x<40 AND y>25 AND y<30 THEN lesen1
  138.  IF x>60 AND x<75 AND y>25 AND y<30 THEN 
  139.  CLOSE 1
  140.  WINDOW CLOSE 3
  141.  WINDOW 2
  142.  LINE (90,160)-(165,180),2,bf
  143.  GOSUB fuellen
  144.  COLOR 1,2
  145.  LOCATE 18,27 : PRINT "Bitte Funktion anklicken "
  146.  LOCATE 22,14 : PRINT "Lesen ";
  147.  GOTO mausabf1
  148.  END IF 
  149.  RETURN
  150. lesen1:
  151.  GET #1,A
  152.  gela=A
  153.  IF EOF(1)=-1 THEN mausabf2
  154.  COLOR 3,10
  155.  LOCATE 4,17 : PRINT  nname$
  156.  LOCATE 6,17 : PRINT  vorname$
  157.  LOCATE 8,17 : PRINT  strasse$
  158.  LOCATE 10,17 : PRINT wohnort$
  159.  LOCATE 12,17 : PRINT  telefon$
  160.  LOCATE 15,17 : PRINT  info$
  161.  enname$=nname$
  162.  evorname$=vorname$
  163.  estrasse$=strasse$
  164.  ewohnort$=wohnort$
  165.  etelefon$=telefon$
  166.  einfo$=info$
  167.  COLOR 2,1
  168.  IF ae=0 THEN RETURN
  169.  GOTO mausabf2
  170. schreiben:
  171.  MENU OFF
  172.  LINE (260,160)-(360,180),1,bf
  173.  COLOR 2,1
  174.  LOCATE 22,35 : PRINT "Schreiben";
  175.  COLOR 1,2
  176. eingabe:
  177.  IF sl<>1 THEN GOSUB anzahlsatz
  178.  OPEN "r",#1,"adressdatei.rel",195
  179.  FIELD #1,20 AS nname$,20 AS vorname$,30 AS strasse$,30 AS wohnort$,15 AS telefon$,80 AS info$
  180. eingabe1:
  181.  LOCATE 18,27 : PRINT " Adresse eingeben       " 
  182.  COLOR 1,10
  183.  LOCATE 4,17 : PRINT  sp$
  184.  LOCATE 6,17 : PRINT  sp$
  185.  LOCATE 8,17 : PRINT  sp$
  186.  LOCATE 10,17 : PRINT sp$
  187.  LOCATE 12,17 : PRINT sp$
  188.  LOCATE 15,17 : PRINT  sp$
  189.  LOCATE 4,17 : LINE INPUT ename$
  190.  IF ename$="e" THEN 
  191.  LOCATE 4,17 : PRINT  "  "
  192.  CLOSE 1
  193.  LINE (260,160)-(360,180),2,bf
  194.  COLOR 1,2
  195.  LOCATE 18,27 : PRINT "Bitte Funktion anklicken "
  196.  LOCATE 22,35 : PRINT "Schreiben";
  197.  GOTO mausabf1
  198.  END IF
  199.  LOCATE 6,17 : LINE INPUT evorname$
  200.  LOCATE 8,17 : LINE INPUT estrasse$
  201.  LOCATE 10,17 : LINE INPUT ewohnort$
  202.  LOCATE 12,17 : LINE INPUT etelefon$
  203.  LOCATE 15,17 : LINE INPUT einfo$
  204.  COLOR 1,2
  205.  LOCATE 18,27 : PRINT " Eingabe korrekt (j/n)  "
  206. schleife:
  207.  tast$=INKEY$ : IF tast$<>"j" AND tast$<>"n" THEN schleife
  208.  IF tast$="j" THEN
  209.  LSET nname$=ename$
  210.  LSET vorname$=evorname$
  211.  LSET strasse$=estrasse$
  212.  LSET wohnort$=ewohnort$ 
  213.  LSET telefon$=etelefon$
  214.  LSET info$=einfo$
  215.  satz=satz+1
  216.  PUT #1,satz         
  217.  ta$=INKEY$
  218.  GOTO schleife1
  219.  END IF
  220.  IF tast$="n" THEN 
  221.  LOCATE 18,27 : PRINT " Adresse eingeben       "
  222.  GOTO eingabe1
  223.  END IF
  224. schleife1:
  225.  LOCATE 18,27 : PRINT " weitere Eingaben (j/n) " 
  226.  tast$=INKEY$ : IF tast$<>"j" AND tast$<>"n" THEN schleife1
  227.  IF tast$="j" THEN 
  228.  LOCATE 18,27 : PRINT " Adresse eingeben       " 
  229.  GOTO eingabe1
  230.  END IF
  231.  IF tast$="n" THEN
  232.  CLOSE 1
  233.  GOSUB anzahlsatzsp
  234.  LINE (260,160)-(360,180),2,bf
  235.  COLOR 1,2
  236.  LOCATE 18,27 : PRINT "Bitte Funktion anklicken "
  237.  LOCATE 22,35 : PRINT "Schreiben";
  238.  GOTO mausabf1
  239.  END IF
  240. suchen:
  241.  MENU OFF
  242.  OPEN "r",#1,"adressdatei.rel",195
  243.  FIELD #1,20 AS nname$,20 AS vorname$,30 AS strasse$,30 AS wohnort$,15 AS telefon$,80 AS info$
  244.  LINE (430,160)-(530,180),1,bf
  245.  COLOR 2,1
  246.  LOCATE 22,58: PRINT " Suchen";
  247.  COLOR 1,2
  248.  FOR x=0 TO 199
  249.  gef(x)=0
  250.  NEXT x
  251.  x=0
  252. suchen0:
  253.  COLOR 1,10
  254.  LOCATE 4,17 : PRINT  sp$
  255.  LOCATE 6,17 : PRINT  sp$
  256.  LOCATE 8,17 : PRINT  sp$
  257.  LOCATE 10,17 : PRINT sp$
  258.  LOCATE 12,17 : PRINT sp$
  259.  LOCATE 15,17 : PRINT  sp$
  260.  COLOR 1,2
  261.  LOCATE 18,27 : PRINT "Bitte Suchwert eingeben "
  262. suchene: 
  263.  zeile=2
  264.  FOR la=0 TO 5
  265.  zeile=zeile+2
  266.  IF zeile=14 THEN zeile=15
  267.  LOCATE zeile,17 : LINE INPUT eingabe$
  268.  IF eingabe$="ˆ" THEN
  269.  COLOR 10,10
  270.  LOCATE CSRLIN-1,17 : PRINT  "  "
  271.  CLOSE 1
  272.  LINE (430,160)-(530,180),2,bf
  273.  COLOR 1,2
  274.  LOCATE 18,27 : PRINT "Bitte Funktion anklicken "
  275.  LOCATE 22,58 : PRINT "Suchen";
  276.  GOTO mausabf1
  277.  END IF  
  278.  IF eingabe$<>"" THEN suchen2
  279.  NEXT la
  280.  COLOR 1,2
  281.  GOTO suchene
  282. suchen2:
  283.  ss=1
  284.  IF sl<>1 THEN GOSUB anzahlsatz
  285. suchen3: 
  286.  IF la=0 THEN 
  287.  GET #1,ss
  288.  wert=INSTR(nname$,eingabe$)
  289.  IF wert>0 THEN
  290.  gef(x)=ss
  291.  x=x+1
  292.  GOTO suchen4
  293.  END IF
  294.  END IF
  295.  IF la=1 THEN 
  296.  GET #1,ss
  297.  wert=INSTR(vorname$,eingabe$)
  298.  IF wert>0 THEN
  299.  gef(x)=ss
  300.  x=x+1
  301.  GOTO suchen4
  302.  END IF
  303.  END IF
  304.  IF la=2 THEN
  305.  GET #1,ss
  306.  wert=INSTR(strasse$,eingabe$)
  307.  IF wert>0 THEN
  308.  gef(x)=ss
  309.  x=x+1
  310.  GOTO suchen4
  311.  END IF
  312.  END IF
  313.  IF la=3 THEN 
  314.  GET #1,ss
  315.  wert=INSTR(wohnort$,eingabe$)
  316.  IF wert>0 THEN
  317.  gef(x)=ss
  318.  x=x+1
  319.  GOTO suchen4
  320.  END IF
  321.  END IF
  322.  IF la=4 THEN
  323.  GET #1,ss
  324.  wert=INSTR(telefon$,eingabe$)
  325.  IF wert>0 THEN
  326.  gef(x)=ss
  327.  x=x+1
  328.  GOTO suchen4
  329.  END IF
  330.  END IF
  331.  IF la=5 THEN
  332.  GET #1,ss
  333.  wert=INSTR(info$,eingabe$)
  334.  IF wert>0 THEN
  335.  gef(x)=ss
  336.  x=x+1
  337.  GOTO suchen4
  338.  END IF
  339.  END IF
  340. suchen4:
  341.  ss=ss+1
  342.  IF ss>satz THEN suchen5          
  343.  GOTO suchen3
  344. suchen5:
  345.  IF gef(0)=0 THEN
  346.  CLOSE 1
  347.  COLOR 1,2
  348.  LOCATE 18,27 : PRINT "Keine passende Adresse  "
  349.  GOTO suchen
  350.  END IF
  351. suchen6:
  352.  COLOR 1,2
  353.  LOCATE 18,27 : PRINT x" Adressen gefunden   "
  354.  z=x-1
  355.  x=0
  356. suchen7:
  357.  tast$=INKEY$ : IF tast$<>CHR$(28) AND tast$<>CHR$(27) AND tast$<>CHR$(29) AND tast$<>CHR$(136) AND tast$<>CHR$(137) THEN suchen7
  358.  IF tast$=CHR$(29) THEN x=x+1 : GOTO suchen8
  359.  IF tast$=CHR$(28) THEN x=x-1 : GOTO suchen8
  360.  IF tast$=CHR$(27) THEN CLOSE 1 :GOTO suchen
  361.  IF tast$=CHR$(136) THEN 
  362.  LINE (430,160)-(530,180),2,bf
  363.  COLOR 1,2
  364.  LOCATE 18,27 : PRINT "Bitte Funktion anklicken "
  365.  LOCATE 22,58 : PRINT "Suchen";
  366.  CLOSE 1 
  367.  GOTO mausabf1
  368.  END IF 
  369.  IF tast$=CHR$(137) THEN
  370.  LPRINT nname$ : LPRINT vorname$
  371.  LPRINT wohnort$ : LPRINT strasse$
  372.  LPRINT telefon$
  373.  GOTO suchen7
  374.  END IF
  375. suchen8:
  376.  IF x>z THEN x=x-1 
  377.  IF x<0 THEN x=x+1 
  378.  COLOR 1,2
  379.  LOCATE 18,27 : PRINT "Adresse " gef(x) "             "
  380.  GET #1,gef(x)
  381.  COLOR 4,10
  382.  LOCATE 4,17 : PRINT  nname$
  383.  LOCATE 6,17 : PRINT  vorname$
  384.  LOCATE 8,17 : PRINT  strasse$
  385.  LOCATE 10,17 : PRINT wohnort$
  386.  LOCATE 12,17 : PRINT  telefon$
  387.  LOCATE 15,17 : PRINT  info$
  388.  GOTO suchen7
  389. aendern:
  390.  LOCATE 18,27 : PRINT "Wollen Sie etwas ändern "
  391. aendern0:
  392.  tast$=INKEY$ : IF tast$<>"j" AND tast$<>"n" THEN aendern0
  393.  IF tast$="j" THEN
  394.  IF gela<>A THEN
  395.  ae=0
  396.  GOSUB lesen1
  397.  ae=1  
  398.  GOTO aendern1
  399.  END IF
  400.  END IF
  401.  IF tast$="n" THEN : LOCATE 18,27 :PRINT "Adressnummer "A"         ":RETURN
  402. aendern1: 
  403.  WINDOW CLOSE 3
  404.  GOSUB fuellen
  405.  WINDOW 2
  406.  COLOR 1,2
  407.  LOCATE 18,27 : PRINT "Änderung                "
  408.  LOCATE 4,17 : LINE INPUT enname1$
  409.  IF enname1$<>"" THEN enname$=enname1$
  410.  LOCATE 6,17 : LINE INPUT evorname1$
  411.  IF evorname1$<>"" THEN evorname$=evorname1$
  412.  LOCATE 8,17 : LINE INPUT estrasse1$
  413.  IF estrasse1$<>"" THEN estrasse$=estrasse1$
  414.  LOCATE 10,17 : LINE INPUT ewohnort1$
  415.  IF ewohnort1$<>"" THEN ewohnort$=ewohnort1$
  416.  LOCATE 12,17 : LINE INPUT etelefon1$
  417.  IF etelefon1$<>"" THEN etelefon$=etelefon1$
  418.  LOCATE 15,17 : LINE INPUT einfo1$
  419.  IF einfo1$<>"" THEN einfo$=einfo1$
  420.  COLOR 1,2
  421.  LOCATE 18,27 : PRINT " Eingabe korrekt        "
  422. schleife2:
  423.  tast$=INKEY$ : IF tast$<>"j" AND tast$<>"n" THEN schleife2
  424.  IF tast$="j" THEN 
  425.  LSET nname$=enname$
  426.  LSET vorname$=evorname$
  427.  LSET strasse$=estrasse$
  428.  LSET wohnort$=ewohnort$ 
  429.  LSET telefon$=etelefon$
  430.  LSET info$=einfo$
  431.  PUT #1,A
  432.  GOSUB fenster1
  433.  RETURN          
  434.  END IF
  435.  IF tast$="n" THEN aendern
  436. anzahlsatz:
  437.  sl=1
  438.  OPEN "r",#2,"satzanzahl.rel",3
  439.  FIELD #2,3 AS satz$
  440.  GET #2
  441.  satz=VAL(satz$)
  442.  IF satz <0 THEN
  443.  COLOR 1,2 
  444.  LOCATE 18,27 : PRINT "Keine Adresse vorhanden "
  445.  GOTO bild1
  446.  END IF
  447.  CLOSE 2
  448.  RETURN
  449. anzahlsatzsp:
  450.  asatz$=STR$(satz)
  451.  OPEN "r",#2,"satzanzahl.rel",3
  452.  FIELD #2,3 AS satz$
  453.  LSET satz$=asatz$
  454.  PUT #2
  455.  CLOSE 2
  456.  RETURN
  457. schreibmaschine:
  458.  CLOSE 1,2,3
  459.  SCREEN 3,640,256,2,2
  460.  WINDOW 4,"SCHREIBMASCHINE",,0,3
  461.  MENU 5,0,0 
  462.  PALETTE 0,0.1,0.1,0.1
  463.  COLOR 1
  464.  I$=""
  465.  OPEN "KYBD:" FOR INPUT AS 1
  466.  OPEN "SCRN:" FOR OUTPUT AS 2
  467.  OPEN "LPT1:" FOR OUTPUT AS 3
  468.  WHILE I$<> CHR$(138)
  469.  I$=INPUT$(1,1)
  470.  PRINT #2,I$;
  471.  IF I$=CHR$(13) THEN I$=CHR$(10)
  472.  IF I$=CHR$(8) THEN I$=CHR$(127)
  473.  PRINT #3,I$;
  474.  WEND
  475.  CLOSE 1,2,3
  476.  SCREEN CLOSE 3
  477.  WINDOW CLOSE 3
  478.  MENU 5,0,1
  479.  GOTO mausabf1
  480. briefkopf:
  481.  SCREEN 4,640,240,2,2
  482.  WINDOW 6," Briefkopf ",(0,0)-(630,120),0,4
  483.  PALETTE 0,0.1,0.1,0.1
  484.  GOSUB anzahlsatz
  485.  CLS
  486.  COLOR 2,0
  487.  briefkopf1: 
  488.  COLOR 0,2
  489.  CLS
  490.  LOCATE 13,2 : INPUT "Absender(Adressennr.)?: ",A$
  491.  IF A$="e" THEN
  492.  SCREEN CLOSE 4
  493.  WINDOW CLOSE 6
  494.  GOTO mausabf1
  495.  END IF
  496.  A=VAL(A$)
  497.  IF A<1 THEN briefkopf1  
  498.  IF A>satz THEN briefkopf1
  499.  briefkopf2:
  500.  LOCATE 13,2 : INPUT "Empfänger(Adressennr.)?: ",E$
  501.  E=VAL(E$)
  502.  IF E<1 THEN briefkopf2
  503.  IF E>satz THEN briefkopf2
  504.  OPEN "r",#1,"adressdatei.rel",195
  505.  FIELD #1,20 AS nname$,20 AS vorname$,30 AS strasse$,30 AS wohnort$,15 AS telefon$,80 AS info$
  506.  GET#1,A
  507.  N=INSTR(nname$,"  ")
  508.  IF N<>0 THEN dname$=MID$(nname$,1,N) :ELSE dname$=nname$
  509.  N=INSTR(vorname$,"  ")
  510.  IF N<>0 THEN dvorname$=MID$(vorname$,1,N) :ELSE dname$=nname$
  511.  N=INSTR(strasse$,"  ")
  512.  IF N<>0 THEN dstrasse$=MID$(strasse$,1,N) :ELSE dname$=nname$
  513.  N=INSTR(wohnort$,"  ")
  514.  IF N<>0 THEN dwohnort$=MID$(wohnort$,1,N) :ELSE dname$=nname$
  515.  LOCATE 1,2 : COLOR 3 : PRINT "Absender :"
  516.  LOCATE 2,2 : COLOR 1: PRINT dname$",";
  517.  PRINT dvorname$ 
  518.  LOCATE 3,2 : PRINT dstrasse$ 
  519.  LOCATE 5,2 : PRINT  dwohnort$
  520.  GET 1,E
  521.  N=INSTR(nname$,"  ")
  522.  IF N<>0 THEN dename$=MID$(nname$,1,N) :ELSE dname$=nname$
  523.  N=INSTR(vorname$,"  ")
  524.  IF N<>0 THEN devorname$=MID$(vorname$,1,N) :ELSE dname$=nname$
  525.  N=INSTR(strasse$,"  ")
  526.  IF N<>0 THEN destrasse$=MID$(strasse$,1,N) :ELSE dname$=nname$
  527.  N=INSTR(wohnort$,"  ")
  528.  IF N<>0 THEN dewohnort$=MID$(wohnort$,1,N) :ELSE dname$=nname$
  529.  LOCATE 1,40 : COLOR 3 : PRINT  "Empfänger :" 
  530.  LOCATE 2,40 : COLOR 1: PRINT dename$",";
  531.  PRINT devorname$ 
  532.  LOCATE 3,40 : PRINT destrasse$ 
  533.  LOCATE 5,40 : PRINT dewohnort$
  534.  LOCATE 13,2 : COLOR 0,2 : PRINT "Adressen korekt(j/n)?      "
  535.  tast1:
  536.  tast$=INKEY$ : IF tast$<>"j" AND tast$<>"n" THEN tast1
  537.  IF tast$="j"THEN
  538.  CLOSE
  539.  OPEN "PAR:" FOR OUTPUT AS 2
  540.  PRINT #2,dname$",";
  541.  PRINT #2,dvorname$
  542.  PRINT #2,dstrasse$
  543.  PRINT #2," "
  544.  PRINT #2,dwohnort$
  545.  PRINT #2," "
  546.  PRINT #2," "
  547.  PRINT #2," "
  548.  PRINT #2," "
  549.  PRINT #2, CHR$(27);CHR$(83);CHR$(49);CHR$(15);CHR$(27);CHR$(45);CHR$(49)
  550.  PRINT #2,dname$",";
  551.  PRINT #2,dvorname$",";
  552.  PRINT #2,dstrasse$"," ;
  553.  PRINT #2,dwohnort$;CHR$(27);CHR$(84);CHR$(18);CHR$(27);CHR$(45);CHR$(48)
  554.  PRINT #2,dename$", ";
  555.  PRINT #2,devorname$
  556.  PRINT #2,destrasse$
  557.  PRINT #2," "
  558.  PRINT #2,dewohnort$
  559.  CLOSE 1,2
  560.  END IF
  561.  IF tast$="n" THEN CLOSE 1 : GOTO briefkopf1
  562.  CLS
  563.  SCREEN CLOSE 4
  564.  WINDOW CLOSE 6
  565.  GOTO mausabf1
  566. fuellen:
  567.  COLOR 10,2
  568.  AREA (480,80)
  569.  AREA (610,80)
  570.  AREA (610,150)
  571.  AREA (480,150)
  572.  AREAFILL
  573.  COLOR 2,1
  574.  RETURN 
  575. fenster1:
  576.  WINDOW 3,,(500,100)-(600,130),0,2
  577.  COLOR 10,2
  578.  LOCATE 2,4 : PRINT "Z.";
  579.  LOCATE 2,8 : PRINT "V.";
  580.  COLOR 1,2
  581.  LOCATE 3,5 : PRINT " Ä "
  582.  COLOR 10,2
  583.  LOCATE 4,4 : PRINT "L.";
  584.  LOCATE 4,8 : PRINT "E.";
  585.  WINDOW OUTPUT 2
  586.  COLOR 1,2
  587.  LOCATE 18,27 :PRINT "Adressnummer "A"       "
  588.  RETURN
  589. stil: 
  590.  DECLARE FUNCTION OpenFont&() LIBRARY
  591.  DECLARE FUNCTION AskSoftStyle&() LIBRARY
  592.  LIBRARY "Lib/graphics.library"
  593.  tz&(0)=SADD(Schriftname$)
  594.  tz&(1)=7*(2^16)
  595.  font&=OpenFont&(VARPTR(tz&(0)))
  596.  IF font& <> 0 THEN CALL SetFont&(WINDOW(8),font&)
  597.  zt%=AskSoftStyle&(WINDOW(8))
  598.  CALL SetSoftStyle&(WINDOW(8),2,zt%)
  599.  adr&=SADD(txt$(2))
  600.  lg&=LEN(txt$(2))
  601.  CALL Move& (WINDOW(8),2,(9*20)+10)
  602.  CALL Text& (WINDOW(8),adr&,lg&)
  603.  CALL CloseFont&(font&)
  604.  LIBRARY CLOSE
  605.  RETURN
  606.  END
  607.  LIST
  608. aus:
  609.  LINE (1,191)-(7,199),10,bf
  610.  LINE (1,192)-(9,202),9,bf
  611.  FOR x=0 TO 100 : NEXT x
  612.  aadresse=16515072
  613.  CALL aadresse
  614.  
  615.